home *** CD-ROM | disk | FTP | other *** search
/ DarkBASIC - The Ultimate 3D Game Creator / PCactive 8 CD1 - DarkBasic.iso / SOFTWARE / DEMOS / DarkForge2000 / snippets_vol1 / snip_lcd_writer.dba < prev    next >
Encoding:
Text File  |  2000-08-05  |  751 b   |  47 lines
  1. `    ------------------------------------------------------------------------
  2. `    Console Text Writer                         DarkForge Snippet (6/6/2000)
  3. `    ------------------------------------------------------------------------
  4. `
  5. `    Does one of those classic green-screen text display writers.
  6.  
  7. sync rate 0
  8. sync on
  9. hide mouse
  10.  
  11. ink rgb(0,255,0),0
  12. box 0,0,8,11
  13. get image 1,0,0,8,11
  14. cls 0
  15.  
  16. rich$ = "Welcome to the DarkForge text type-writer demo program!"
  17. x=len(rich$)
  18.  
  19. a=1 : i=0 : s=16 : b=0
  20.  
  21. set text font "Courier"
  22.  
  23. repeat
  24.     
  25.     sprite 1,s,b,1
  26.     set cursor a*8,b
  27.     a$ = mid$(rich$, a)
  28.     
  29.     repeat
  30.  
  31.         ink rgb(0,i,0),0
  32.         text a*8,b,a$
  33.         inc i,35
  34.         sync
  35.     
  36.     until i=>255
  37.  
  38.     inc a
  39.     inc s,8
  40.     i=0
  41.     
  42. until a=x
  43.  
  44. wait key
  45. end
  46.  
  47.